home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 002 / bluebery.arc / ALPHAHEX.BAS (.txt) next >
Encoding:
GW-BASIC  |  1985-06-29  |  6.0 KB  |  169 lines
  1. 5  CLS:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
  2. 10  '***************** ALPHANUMERIC HEX$ WORKSHEET PLAN ************************
  3. 16  'KEYTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENCLOSE
  4. 18  'OPEN             ALPHANUMERIC TO HEXADECIMAL WORKSHEET UTILITY               OPEN
  5. 20  'OPEN                                                                         OPEN
  6. 22  'OPEN    This program will printout, on the screen in color or monochrome, a  OPEN
  7. 24  'OPEN full easy-reference worksheet showing the hexadecimal conversions from  OPEN
  8. 26  'OPEN zero (0) to lowercase "z".  This is useful when using a debug or other  OPEN
  9. 28  'OPEN program in which you are inspecting or changing hexadecimal values on   OPEN
  10. 30  'OPEN disk sectors.  You can convert from ASCII directly to HEX.              OPEN
  11. 32  'OPEN                                                                         OPEN
  12. 34  'OPEN    The display is printed out in contrasting color columns. This is     OPEN
  13. 36  'OPEN controlled by line 670-90. If you wish to eliminate the color and use   OPEN
  14. 38  'OPEN BLACK/WHITE MONOCHROME, SIMPLY REM line 690  and remove the REM from    OPEN
  15. 40  'OPEN line 670.    The print out will be in emphasized print and the chart    OPEN
  16. 42  'OPEN is suitable for wall display or notebook use.                           OPEN
  17. 44  'OPEN                                                                         OPEN
  18. 46  'OPEN    This program may be used in whole or in part without license or      OPEN
  19. 48  'OPEN attribution.  (c)   G I N A C O  --  1983           Ver 5.1/160         OPEN
  20. 50  'SCREENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENTHENLOAD
  21. 55  '        *****  < F2 > to RUN  *******  < F10 > For BLUEMENU  *****
  22. 57  ' ****** To avoid DOCUMENTATION BOX each time, REM or DELETE  line 5 *******
  23. 60  KEY OFF
  24. 100  CLS
  25. 110   SCREEN 0,0,0
  26. 120    WIDTH 80
  27. 130     CLEAR
  28. 140      FOR I! = 1 TO 10
  29. 150         KEY I!,""
  30. 160        NEXT
  31. 170  CLS
  32. 180   CLEAR 100
  33. 190    DIM A$(200)
  34. 200     CLEANUP$ = CHR$(27) + CHR$(64)
  35. 210      DARK$ = CHR$(27) + CHR$(69)
  36. 220       LOCATE 12,10
  37. 230        PRINT "THIS WILL PRINT OUT ALPHA/HEX CONVERSIONS FROM 0 TO LOWER CASE Z"
  38. 240         X! = 48
  39. 250          Y! = 126
  40. 260           FOR I! = X! TO Y!
  41. 270              A$(I!) = HEX$(I!)
  42. 280             NEXT
  43. 290  PRINT TAB( 4)"CHR"; TAB( 10)"THEN>"; TAB( 14)"HEX"; TAB( 24)"CHR"; TAB( 30)"THEN>"; TAB( 34)"HEX"; TAB( 44)"CHR"; TAB( 50)"THEN>"; TAB( 54)"HEX"; TAB( 64)"CHR"; TAB( 70)"THEN>"; TAB( 74)"HEX"
  44. 300  PRINT TAB( 4)"THENTHENTHENTHENTHEN"; TAB( 14)"THENTHENTHENTHEN"; TAB( 24)"THENTHENTHENTHENTHEN"; TAB( 34)"THENTHENTHENTHEN"; TAB( 44)"THENTHENTHENTHENTHEN"; TAB( 54)"THENTHENTHENTHEN"; TAB( 64)"THENTHENTHENTHENTHEN"; TAB( 74)"THENTHENTHENTHEN"
  45. 310   I! = X!
  46. 320    GOSUB 750
  47. 330     I! = X! + 4
  48. 340      GOSUB 750
  49. 350       I! = X! + 8
  50. 360        GOSUB 750
  51. 370         I! = X! + 12
  52. 380          GOSUB 750
  53. 390           I! = X! + 16
  54. 400            GOSUB 750
  55. 410             I! = X! + 20
  56. 420              GOSUB 750
  57. 430               I! = X! + 24
  58. 440                GOSUB 750
  59. 450                 I! = X! + 28
  60. 460  GOSUB 750
  61. 470   I! = X! + 32
  62. 480    GOSUB 750
  63. 490     I! = X! + 36
  64. 500      GOSUB 750
  65. 510       I! = X! + 40
  66. 520        GOSUB 750
  67. 530         I! = X! + 44
  68. 540          GOSUB 750
  69. 550           I! = X! + 48
  70. 560            GOSUB 750
  71. 570             I! = X! + 52
  72. 580              GOSUB 750
  73. 590               I! = X! + 56
  74. 600                GOSUB 750
  75. 610                 I! = X! + 60
  76. 620                  GOSUB 750
  77. 630                   I! = X! + 64
  78. 640                    GOSUB 750
  79. 650                     I! = X! + 60
  80. 660                      GOSUB 750
  81. 670                       I! = X! + 64
  82. 680                        GOSUB 750
  83. 690                         I! = X! + 68
  84. 700                          GOSUB 750
  85. 710                           I! = X! + 72
  86. 720                            GOSUB 750
  87. 730                             GOTO 960
  88. 740  REM ************** NEXT IS A MONOCHROME PRINTOUT LINE  ********************
  89. 750  REM PRINT TAB(6)CHR$(I);TAB(15)A$(I);TAB(26)CHR$(I+1);TAB(35)A$(I+1);TAB(46)CHR$(I+2);TAB(55)A$(I+2);TAB(66)CHR$(I+3);TAB(75)A$(I+3)
  90. 760  REM ************** NEXT IS THE COLOR PRINTOUT LINE ************************
  91. 770  COLOR 3,0
  92. 780   PRINT TAB( 6) CHR$(I!);
  93. 790    COLOR 6
  94. 800     PRINT TAB( 15)A$(I!);
  95. 810      COLOR 3
  96. 820       PRINT TAB( 26) CHR$(I! + 1);
  97. 830        COLOR 6
  98. 840         PRINT TAB( 35)A$(I! + 1);
  99. 850          COLOR 3
  100. 860           PRINT TAB( 46) CHR$(I! + 2);
  101. 870            COLOR 6
  102. 880             PRINT TAB( 55)A$(I! + 2);
  103. 890              COLOR 3
  104. 900               PRINT TAB( 66) CHR$(I! + 3);
  105. 910                COLOR 6
  106. 920                 PRINT TAB( 75)A$(I! + 3)
  107. 930  COLOR 7,0
  108. 940   RETURN
  109. 950  END
  110. 960  COLOR 7,0
  111. 970   LOCATE 25,3
  112. 980    PRINT "TO RERUN  <ENTER 1>    TO PRINT  <ENTER 2>     TO LEAVE  PROGRAM   <ENTER 3>"
  113. 990     GOSUB 1010
  114. 1000      ON VAL(GO$) GOTO 60,1040,1510
  115. 1010  GO$ = INKEY$
  116. 1020   IF GO$ = "" THEN 1010
  117. 1030  IF (GO$ < "1" OR GO$ > "3") THEN 960 ELSE RETURN
  118. 1040  LPRINT CLEANUP$;DARK$;
  119. 1050   LPRINT "THIS WILL PRINT OUT ALPHA/HEX CONVERSIONS FROM 0 TO LOWER CASE Z"
  120. 1060  LPRINT TAB( 4)"CHR"; TAB( 10)"->"; TAB( 14)"HEX"; TAB( 24)"CHR"; TAB( 30)"->"; TAB( 34)"HEX"; TAB( 44)"CHR"; TAB( 50)"->"; TAB( 54)"HEX"; TAB( 64)"CHR"; TAB( 70)"->"; TAB( 74)"HEX"
  121. 1070  LPRINT TAB( 4)"====="; TAB( 14)"===="; TAB( 24)"====="; TAB( 34)"===="; TAB( 44)"====="; TAB( 54)"===="; TAB( 64)"====="; TAB( 74)"===="
  122. 1080   I! = X!
  123. 1090    GOSUB 1480
  124. 1100     I! = X! + 4
  125. 1110      GOSUB 1480
  126. 1120       I! = X! + 8
  127. 1130        GOSUB 1480
  128. 1140         I! = X! + 12
  129. 1150          GOSUB 1480
  130. 1160           I! = X! + 16
  131. 1170            GOSUB 1480
  132. 1180             I! = X! + 20
  133. 1190              GOSUB 1480
  134. 1200               I! = X! + 24
  135. 1210                GOSUB 1480
  136. 1220  I! = X! + 28
  137. 1230   GOSUB 1480
  138. 1240    I! = X! + 32
  139. 1250     GOSUB 1480
  140. 1260      I! = X! + 36
  141. 1270       GOSUB 1480
  142. 1280        I! = X! + 40
  143. 1290         GOSUB 1480
  144. 1300          I! = X! + 44
  145. 1310           GOSUB 1480
  146. 1320            I! = X! + 48
  147. 1330             GOSUB 1480
  148. 1340              I! = X! + 52
  149. 1350               GOSUB 1480
  150. 1360                I! = X! + 56
  151. 1370                 GOSUB 1480
  152. 1380                  I! = X! + 60
  153. 1390                   GOSUB 1480
  154. 1400                    I! = X! + 64
  155. 1410                     GOSUB 1480
  156. 1420                      I! = X! + 68
  157. 1430                       GOSUB 1480
  158. 1440                        I! = X! + 72
  159. 1450                         GOSUB 1480
  160. 1460                          LPRINT CLEANUP$;
  161. 1470                           GOTO 960
  162. 1480  LPRINT TAB( 6) CHR$(I!); TAB( 15)A$(I!); TAB( 26) CHR$(I! + 1); TAB( 35)A$(I! + 1); TAB( 46) CHR$(I! + 2); TAB( 55)A$(I! + 2); TAB( 66) CHR$(I! + 3); TAB( 75)A$(I! + 3)
  163. 1490   RETURN
  164. 1500  END
  165. 1510  CLS
  166. 1520  END
  167. 65000  REM **********************  SAVE ROUTINE  ******************************
  168. 65100  SAVE "B:ALPHAHEX.BAS"
  169.